home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / PInterfaces / AppleScript.p < prev    next >
Text File  |  1996-05-01  |  6KB  |  195 lines
  1. {
  2.      File:        AppleScript.p
  3.  
  4.      Contains:    AppleScript Specific Interfaces.
  5.  
  6.      Version:    Technology:    AppleScript 1.1
  7.                  Release:    Universal Interfaces 3.0d3 on Copland DR1
  8.  
  9.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10.  
  11.      Bugs?:        If you find a problem with this file, send the file and version
  12.                  information (from above) and the problem description to:
  13.  
  14.                      Internet:    apple.bugs@applelink.apple.com
  15.                      AppleLink:    APPLE.BUGS
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT AppleScript;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __APPLESCRIPT__}
  28. {$SETC __APPLESCRIPT__ := 1}
  29.  
  30. {$I+}
  31. {$SETC AppleScriptIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __ERRORS__}
  35. {$I Errors.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __APPLEEVENTS__}
  38. {$I AppleEvents.p}
  39. {$ENDC}
  40. {$IFC UNDEFINED __OSA__}
  41. {$I OSA.p}
  42. {$ENDC}
  43. {$IFC UNDEFINED __TEXTEDIT__}
  44. {$I TextEdit.p}
  45. {$ENDC}
  46.  
  47. {$PUSH}
  48. {$ALIGN MAC68K}
  49. {$LibExport+}
  50.  
  51. {$IFC FOR_SYSTEM7_ONLY }
  52. {
  53. *************************************************************************
  54.     Types and Constants
  55. *************************************************************************
  56. }
  57. {
  58.     The specific type for the AppleScript instance of the
  59.     Open Scripting Architecture type.
  60. }
  61.  
  62. CONST
  63.     typeAppleScript                = 'ascr';
  64.     kAppleScriptSubtype            = 'ascr';
  65.     typeASStorage                = 'ascr';
  66.  
  67. {
  68. *************************************************************************
  69.     Component Selectors
  70. *************************************************************************
  71. }
  72.     kASSelectInit                = $1001;
  73.     kASSelectSetSourceStyles    = $1002;
  74.     kASSelectGetSourceStyles    = $1003;
  75.     kASSelectGetSourceStyleNames = $1004;
  76.  
  77. {
  78. *************************************************************************
  79.     OSAGetScriptInfo Selectors
  80. *************************************************************************
  81. }
  82.     kASHasOpenHandler            = 'hsod';
  83.  
  84. {
  85.         This selector is used to query a context as to whether it contains
  86.         a handler for the kAEOpenDocuments event. This allows "applets" to be 
  87.         distinguished from "droplets."  OSAGetScriptInfo returns false if
  88.         there is no kAEOpenDocuments handler, and returns the error value 
  89.         errOSAInvalidAccess if the input is not a context.
  90. }
  91. {
  92. *************************************************************************
  93.     Initialization
  94. *************************************************************************
  95. }
  96. FUNCTION ASInit(scriptingComponent: ComponentInstance; modeFlags: LONGINT; minStackSize: LONGINT; preferredStackSize: LONGINT; maxStackSize: LONGINT; minHeapSize: LONGINT; preferredHeapSize: LONGINT; maxHeapSize: LONGINT): OSAError;
  97.     {$IFC NOT GENERATINGCFM}
  98.     INLINE $2F3C, $001C, $1001, $7000, $A82A;
  99.     {$ENDC}
  100. {
  101.         ComponentCallNow(kASSelectInit, 28);
  102.         This call can be used to explicitly initialize AppleScript.  If it is
  103.         not called, the a scripting size resource is looked for and used. If
  104.         there is no scripting size resource, then the constants listed below
  105.         are used.  If at any stage (the init call, the size resource, the 
  106.         defaults) any of these parameters are zero, then parameters from the
  107.         next stage are used.  ModeFlags are not currently used.
  108.         Errors:
  109.         errOSASystemError        initialization failed
  110. }
  111. {
  112.     These values will be used if ASInit is not called explicitly, or if any
  113.     of ASInit's parameters are zero:
  114. }
  115.  
  116. CONST
  117.     kASDefaultMinStackSize        = 4096;
  118.     kASDefaultPreferredStackSize = 16384;
  119.     kASDefaultMaxStackSize        = 16384;
  120.     kASDefaultMinHeapSize        = 4096;
  121.     kASDefaultPreferredHeapSize    = 16384;
  122.     kASDefaultMaxHeapSize        = 33554432;
  123.  
  124. {
  125. *************************************************************************
  126.     Source Styles
  127. *************************************************************************
  128. }
  129. FUNCTION ASSetSourceStyles(scriptingComponent: ComponentInstance; sourceStyles: STHandle): OSAError;
  130.     {$IFC NOT GENERATINGCFM}
  131.     INLINE $2F3C, $0004, $1002, $7000, $A82A;
  132.     {$ENDC}
  133. {
  134.         ComponentCallNow(kASSelectSetSourceStyles, 4);
  135.         Errors:
  136.         errOSASystemError        operation failed
  137. }
  138. FUNCTION ASGetSourceStyles(scriptingComponent: ComponentInstance; VAR resultingSourceStyles: STHandle): OSAError;
  139.     {$IFC NOT GENERATINGCFM}
  140.     INLINE $2F3C, $0004, $1003, $7000, $A82A;
  141.     {$ENDC}
  142. {
  143.         ComponentCallNow(kASSelectGetSourceStyles, 4);
  144.         Errors:
  145.         errOSASystemError        operation failed
  146. }
  147. FUNCTION ASGetSourceStyleNames(scriptingComponent: ComponentInstance; modeFlags: LONGINT; VAR resultingSourceStyleNamesList: AEDescList): OSAError;
  148.     {$IFC NOT GENERATINGCFM}
  149.     INLINE $2F3C, $0008, $1004, $7000, $A82A;
  150.     {$ENDC}
  151. {
  152.         ComponentCallNow(kASSelectGetSourceStyleNames, 8);
  153.         This call returns an AEList of styled text descriptors the names of the
  154.         source styles in the current dialect.  The order of the names corresponds
  155.         to the order of the source style constants, below.  The style of each
  156.         name is the same as the styles returned by ASGetSourceStyles.
  157.         
  158.         Errors:
  159.         errOSASystemError        operation failed
  160. }
  161. {
  162.     Elements of STHandle correspond to following categories of tokens, and
  163.     accessed through following index constants:
  164. }
  165.  
  166. CONST
  167.     kASSourceStyleUncompiledText = 0;
  168.     kASSourceStyleNormalText    = 1;
  169.     kASSourceStyleLanguageKeyword = 2;
  170.     kASSourceStyleApplicationKeyword = 3;
  171.     kASSourceStyleComment        = 4;
  172.     kASSourceStyleLiteral        = 5;
  173.     kASSourceStyleUserSymbol    = 6;
  174.     kASSourceStyleObjectSpecifier = 7;
  175.     kASNumberOfSourceStyles        = 8;
  176.  
  177. {  Gestalt selectors for AppleScript  }
  178.     gestaltAppleScriptAttr        = 'ascr';
  179.     gestaltAppleScriptVersion    = 'ascv';
  180.  
  181.     gestaltAppleScriptPresent    = 0;
  182.     gestaltAppleScriptPowerPCSupport = 1;
  183.  
  184. {$ENDC}
  185. {$ALIGN RESET}
  186. {$POP}
  187.  
  188. {$SETC UsingIncludes := AppleScriptIncludes}
  189.  
  190. {$ENDC} {__APPLESCRIPT__}
  191.  
  192. {$IFC NOT UsingIncludes}
  193.  END.
  194. {$ENDC}
  195.